home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / AmigaTalk.p < prev    next >
Text File  |  2004-01-31  |  10KB  |  285 lines
  1. pTempVar <- <primitive 110 63 >
  2. <primitive 112 pTempVar 1  " updateUserBrowserFiles " \
  3.   #( #[ 16r50 16r52 16r30 16r31 16r50 16rFA 16r05 16r89 16rF2 16r50 16r53 \
  4.         16r32 16r31 16rFA 16r04 16r89 16rF2 16rF5] \
  5.     #( 'AmigaTalk:Browser/UserClasses' 'AmigaTalk:User' 'AmigaTalk:Browser/UserClassInstanceVars'  )) >
  6.  
  7. <primitive 112 pTempVar 2  " systemPrivate " \
  8.   #( #[ 16r50 16r52 16r30 16r31 16r50 16rFA 16r05 16r89 16rF2 16r50 16r53 \
  9.         16r32 16r31 16rFA 16r04 16r89 16rF2 16r50 16r52 16r33 16r34 \
  10.         16r50 16rFA 16r05 16r89 16rF2 16r50 16r53 16r35 16r34 16rFA \
  11.         16r04 16r89 16rF2 16r50 16r52 16r36 16r37 16r50 16rFA 16r05 \
  12.         16r89 16rF2 16r50 16r53 16r38 16r37 16rFA 16r04 16r89 16rF2 \
  13.         16rF5] \
  14.     #( 'AmigaTalk:Browser/GeneralClasses' 'AmigaTalk:General' 'AmigaTalk:Browser/GeneralClassInstanceVars' \
  15.         'AmigaTalk:Browser/IntuitionClasses' 'AmigaTalk:Intuition' 'AmigaTalk:Browser/IntuitionClassInstanceVars' \
  16.         'AmigaTalk:Browser/SystemClasses' 'AmigaTalk:System' 'AmigaTalk:Browser/SystemClassInstanceVars'  )) >
  17.  
  18. <primitive 112 pTempVar 3  " removeUserScript: " \
  19.   #( #[ 16r30 16r21 16rFA 16r02 16rBA 16rF2 16rF5] \
  20.     #( 10  )) >
  21.  
  22. <primitive 112 pTempVar 4  " addUserScript:toCall: " \
  23.   #( #[ 16r59 16r21 16r22 16rFA 16r03 16rBA 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 5  " activeWindow " \
  27.   #( #[ 16r58 16rFA 16r01 16rBA 16rF3 16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 6  " activeScreen " \
  31.   #( #[ 16r57 16rFA 16r01 16rBA 16rF3 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 7  " fileInPrimitiveFile: " \
  35.   #( #[ 16r50 16r50 16r21 16rFA 16r03 16r8A 16rF2 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 8  " listClassesOf:to:indent: " \
  39.   #( #[ 16r50 16r51 16r21 16r22 16r23 16rFA 16r05 16r89 16rF3 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 9  " listClassDictionaryTo:indent: " \
  43.   #( #[ 16r50 16r50 16r21 16r22 16rFA 16r04 16r89 16rF3 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 10  " displayInteger: " \
  47.   #( #[ 16r54 16r21 16r11 16r12 16rFA 16r04 16rBA 16rF2 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 11  " displayString: " \
  51.   #( #[ 16r53 16r21 16r11 16r12 16rFA 16r04 16rBA 16rF2 16rF5] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 12  " displayFile: " \
  55.   #( #[ 16r52 16r21 16rFA 16r02 16rBA 16rF2 16rF5] \
  56.     #(  )) >
  57.  
  58. <primitive 112 pTempVar 13  " getScreenModeID " \
  59.   #( #[ 16r56 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 14  " getFileName " \
  63.   #( #[ 16r55 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 15  " getInteger " \
  67.   #( #[ 16r51 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 112 pTempVar 16  " getString " \
  71.   #( #[ 16r50 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  72.     #(  )) >
  73.  
  74. <primitive 112 pTempVar 17  " setIOScreenName: " \
  75.   #( #[ 16r21 16r61 16rF5] \
  76.     #(  )) >
  77.  
  78. <primitive 112 pTempVar 18  " setIODirectory: " \
  79.   #( #[ 16r21 16r61 16rF5] \
  80.     #(  )) >
  81.  
  82. <primitive 112 pTempVar 19  " newIO:title: " \
  83.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16r20 16r22 16r81 16r01 16rF2 16rF5 \
  84.        ] \
  85.     #( #setIOMessage: #setIOTitle:  )) >
  86.  
  87. <primitive 112 pTempVar 20  " informUser: " \
  88.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16r12 16r82 16r01 16rF3 16rF5 \
  89.        ] \
  90.     #( #activeWindow #infoReq:title:  )) >
  91.  
  92. <primitive 112 pTempVar 21  " getUserResponse: " \
  93.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16r12 16r82 16r01 16rF3 16rF5 \
  94.        ] \
  95.     #( #activeWindow #yesNoReq:title:  )) >
  96.  
  97. <primitive 112 pTempVar 22  " setIOTitle: " \
  98.   #( #[ 16r21 16r62 16rF5] \
  99.     #(  )) >
  100.  
  101. <primitive 112 pTempVar 23  " setIOMessage: " \
  102.   #( #[ 16r21 16r61 16rF5] \
  103.     #(  )) >
  104.  
  105. <primitive 112 pTempVar 24  " displayWindowInfo: " \
  106.   #( #[ 16r51 16r53 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  107.     #(  )) >
  108.  
  109. <primitive 112 pTempVar 25  " displayScreenInfo: " \
  110.   #( #[ 16r51 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  111.     #(  )) >
  112.  
  113. <primitive 112 pTempVar 26  " displayTaskInfo: " \
  114.   #( #[ 16r51 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  115.     #(  )) >
  116.  
  117. <primitive 112 pTempVar 27  " displayProcessInfo: " \
  118.   #( #[ 16r51 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  119.     #(  )) >
  120.  
  121. <primitive 112 pTempVar 28  " showScreenWindowList " \
  122.   #( #[ 16r51 16r55 16rFA 16r02 16rFA 16rF3 16rF5] \
  123.     #(  )) >
  124.  
  125. <primitive 112 pTempVar 29  " showTaskProcessList " \
  126.   #( #[ 16r51 16r54 16rFA 16r02 16rFA 16rF3 16rF5] \
  127.     #(  )) >
  128.  
  129. <primitive 112 pTempVar 30  " getWindowAddressList " \
  130.   #( #[ 16r52 16r53 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  131.     #(  )) >
  132.  
  133. <primitive 112 pTempVar 31  " getScreenAddressList " \
  134.   #( #[ 16r52 16r52 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  135.     #(  )) >
  136.  
  137. <primitive 112 pTempVar 32  " getProcessAddressList " \
  138.   #( #[ 16r52 16r50 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  139.     #(  )) >
  140.  
  141. <primitive 112 pTempVar 33  " getTaskAddressList " \
  142.   #( #[ 16r52 16r51 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  143.     #(  )) >
  144.  
  145. <primitive 112 pTempVar 34  " getByteArrayAddress: " \
  146.   #( #[ 16r53 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  147.     #(  )) >
  148.  
  149. <primitive 112 pTempVar 35  " getIntegerAddress: " \
  150.   #( #[ 16r53 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  151.     #(  )) >
  152.  
  153. <primitive 112 pTempVar 36  " getStringAddress: " \
  154.   #( #[ 16r53 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  155.     #(  )) >
  156.  
  157. <primitive 112 pTempVar 37  " getWindowAddress: " \
  158.   #( #[ 16r50 16r53 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  159.     #(  )) >
  160.  
  161. <primitive 112 pTempVar 38  " getScreenAddress: " \
  162.   #( #[ 16r50 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  163.     #(  )) >
  164.  
  165. <primitive 112 pTempVar 39  " getTaskAddress: " \
  166.   #( #[ 16r50 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  167.     #(  )) >
  168.  
  169. <primitive 112 pTempVar 40  " getProcessAddress: " \
  170.   #( #[ 16r50 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  171.     #(  )) >
  172.  
  173. <primitive 112 pTempVar 41  " time: " \
  174.   #( #[ 16rFA 16r00 16rA1 16r72 16r21 16rA5 16rF2 16rFA 16r00 16rA1 16r22 \
  175.         16rC1 16rF3 16rF5] \
  176.     #(  )) >
  177.  
  178. <primitive 112 pTempVar 42  " sh: " \
  179.   #( #[ 16r21 16rFA 16r01 16r7D 16rF3 16rF5] \
  180.     #(  )) >
  181.  
  182. <primitive 112 pTempVar 43  " noDisplay " \
  183.   #( #[ 16r51 16r50 16rFA 16r02 16r08 16rF3 16rF5] \
  184.     #(  )) >
  185.  
  186. <primitive 112 pTempVar 44  " doPrimitive:withArguments: " \
  187.   #( #[ 16r21 16r22 16rFA 16r02 16r1E 16rF3 16rF5] \
  188.     #(  )) >
  189.  
  190. <primitive 112 pTempVar 45  " displayAssign " \
  191.   #( #[ 16r51 16r52 16rFA 16r02 16r08 16rF3 16rF5] \
  192.     #(  )) >
  193.  
  194. <primitive 112 pTempVar 46  " display " \
  195.   #( #[ 16r51 16r51 16rFA 16r02 16r08 16rF3 16rF5] \
  196.     #(  )) >
  197.  
  198. <primitive 112 pTempVar 47  " debug: " \
  199.   #( #[ 16r52 16r21 16rFA 16r02 16r08 16rF3 16rF5] \
  200.     #(  )) >
  201.  
  202. <primitive 112 pTempVar 48  " date " \
  203.   #( #[ 16rFA 16r00 16rA0 16rF3 16rF5] \
  204.     #(  )) >
  205.  
  206. <primitive 112 pTempVar 49  " addGlobal:key: " \
  207.   #( #[ 16r20 16r22 16r21 16r92 16r00 16rF3 16rF5] \
  208.     #( #at:put:  )) >
  209.  
  210. <primitive 112 pTempVar 50  " globalDictionary " \
  211.   #( #[ 16r13 16rF3 16rF5] \
  212.     #(  )) >
  213.  
  214. <primitive 112 pTempVar 51  " clearScreen " \
  215.   #( #[ 16rFA 16r00 16rA2 16rF2 16rF5] \
  216.     #(  )) >
  217.  
  218. <primitive 112 pTempVar 52  " printString " \
  219.   #( #[ 16r20 16rA4 16rFA 16r01 16r98 16rF3 16rF5] \
  220.     #(  )) >
  221.  
  222. <primitive 112 pTempVar 53  " searchState " \
  223.   #( #[ 16r30 16rFA 16r01 16rBA 16rF3 16rF5] \
  224.     #( 11  )) >
  225.  
  226. <primitive 112 pTempVar 54  " turnOnSearch " \
  227.   #( #[ 16r30 16r51 16rFA 16r02 16rBA 16rF2 16rF5] \
  228.     #( 12  )) >
  229.  
  230. <primitive 112 pTempVar 55  " turnOffSearch " \
  231.   #( #[ 16r30 16r50 16rFA 16r02 16rBA 16rF2 16rF5] \
  232.     #( 12  )) >
  233.  
  234. <primitive 112 pTempVar 56  " tracingOff " \
  235.   #( #[ 16r5C 16r64 16rFD 16r00 16rF2 16rF5] \
  236.     #(  )) >
  237.  
  238. <primitive 112 pTempVar 57  " tracingOn " \
  239.   #( #[ 16r5B 16r64 16rFD 16r01 16rF2 16rF5] \
  240.     #(  )) >
  241.  
  242. <primitive 112 pTempVar 58  " traceState " \
  243.   #( #[ 16r14 16r5C 16rCA 16rF3 16rF5] \
  244.     #(  )) >
  245.  
  246. <primitive 112 pTempVar 59  " getByteCodeArrayFrom:for: " \
  247.   #( #[ 16r21 16r22 16rFA 16r02 16r9F 16rF3 16rF5] \
  248.     #(  )) >
  249.  
  250. <primitive 112 pTempVar 60  " privateSetup " \
  251.   #( #[ 16r10 16rA1 16rF7 16r0B 16r20 16r80 16r00 16r60 16r05 16r28 16rA0 \
  252.         16r63 16r5C 16r64 16r5D 16rF2 16r20 16rF3 16rF5] \
  253.     #( #privateNew  )) >
  254.  
  255. <primitive 112 pTempVar 61  " new " \
  256.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  257.     #( #privateSetup  )) >
  258.  
  259. <primitive 112 pTempVar 62  " privateNew " \
  260.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3 16rF5] \
  261.     #( #new  )) >
  262.  
  263. <primitive 112 pTempVar 63  " isSingleton " \
  264.   #( #[ 16r5B 16rF3 16rF5] \
  265.     #(  )) >
  266.  
  267. <primitive 98 #AmigaTalk \
  268.   <primitive 97 #AmigaTalk #Dictionary #AmigaTalk:General/AmigaTalk.st \
  269.    #(  #uniqueInstance #atMsg #wTitle #globalDict #traceControl ) \
  270.    #( #updateUserBrowserFiles #systemPrivate #removeUserScript:  \
  271.        #addUserScript:toCall: #activeWindow #activeScreen #fileInPrimitiveFile:  \
  272.        #listClassesOf:to:indent: #listClassDictionaryTo:indent: #displayInteger: #displayString:  \
  273.        #displayFile: #getScreenModeID #getFileName #getInteger #getString #setIOScreenName:  \
  274.        #setIODirectory: #newIO:title: #informUser: #getUserResponse: #setIOTitle:  \
  275.        #setIOMessage: #displayWindowInfo: #displayScreenInfo: #displayTaskInfo:  \
  276.        #displayProcessInfo: #showScreenWindowList #showTaskProcessList #getWindowAddressList  \
  277.        #getScreenAddressList #getProcessAddressList #getTaskAddressList #getByteArrayAddress:  \
  278.        #getIntegerAddress: #getStringAddress: #getWindowAddress: #getScreenAddress:  \
  279.        #getTaskAddress: #getProcessAddress: #time: #sh: #noDisplay #doPrimitive:withArguments:  \
  280.        #displayAssign #display #debug: #date #addGlobal:key: #globalDictionary #clearScreen  \
  281.        #printString #searchState #turnOnSearch #turnOffSearch #tracingOff #tracingOn  \
  282.        #traceState #getByteCodeArrayFrom:for: #privateSetup #new #privateNew #isSingleton  ) \
  283.   pTempVar 4 6 > #isSingleton >
  284.  
  285.